home *** CD-ROM | disk | FTP | other *** search
/ AmigActive 10 / AACD 10.iso / AACD / Programming / AmigaTalk / User / Graph.p < prev    next >
Text File  |  2000-05-08  |  7KB  |  138 lines
  1. pTempVar <- <primitive 110 18 >
  2. <primitive 112 pTempVar 1  " close " \
  3.   #( #[ 16r11 16r80 16r00 16rF2 16r10 16r80 16r00 16rF2 16r5D 16rF3 16rF5 \
  4.        ] \
  5.     #( #close  )) >
  6.  
  7. <primitive 112 pTempVar 2  " tellDomain " \
  8.   #( #[ 16r30 16r1D 16r0B 16r11 16rA8 16rF2 16rF5] \
  9.     #( 'Domain is '  )) >
  10.  
  11. <primitive 112 pTempVar 3  " tellRange " \
  12.   #( #[ 16r30 16r1C 16r0B 16r11 16rA8 16rF2 16rF5] \
  13.     #( 'Range  is '  )) >
  14.  
  15. <primitive 112 pTempVar 4  " tellScales " \
  16.   #( #[ 16r30 16r18 16r0B 16r11 16r31 16r0B 16r11 16r19 16r0B 16r11 16rA8 \
  17.         16rF2 16rF5] \
  18.     #( 'Scales are:  xscale = ' ', yscale = '  )) >
  19.  
  20. <primitive 112 pTempVar 5  " drawLabel:at: " \
  21.   #( #[ 16r20 16r21 16r22 16r92 16r00 16rF2 16rF5] \
  22.     #( #drawText:at:  )) >
  23.  
  24. <primitive 112 pTempVar 6  " drawYAxis:numTicks:color: " \
  25.   #( #[ 16r1C 16r21 16r0B 16r1F 16rF7 16r37 16r20 16r23 16r81 16r00 16rF2 \
  26.         16r20 16r21 16r1D 16rA6 16r21 16r1D 16r0A 16r1E 16r84 16r01 \
  27.         16rF2 16r22 16r50 16rCC 16rF7 16r20 16r1D 16r0A 16r1E 16r1D \
  28.         16rA6 16rC1 16r22 16rBE 16r74 16r51 16r22 16r51 16rD4 16rE1 \
  29.         16r06 16r0D 16r26 16r24 16rC2 16r1D 16rA6 16rC0 16r75 16r20 \
  30.         16r21 16r25 16r82 16r02 16rF3 16rB3 16rF2 16r5D 16rF8 16r03 \
  31.         16rF2 16r33 16rA8 16rF2 16rF5] \
  32.     #( #setPen: #drawLine:y1:x2:y2: #drawYTick:y: 'Y-Axis outside range!'  )) >
  33.  
  34. <primitive 112 pTempVar 7  " drawXAxis:numTicks:color: " \
  35.   #( #[ 16r1D 16r21 16r0B 16r1F 16rF7 16r37 16r20 16r23 16r81 16r00 16rF2 \
  36.         16r20 16r1C 16rA6 16r21 16r1C 16r0A 16r1E 16r21 16r84 16r01 \
  37.         16rF2 16r22 16r50 16rCC 16rF7 16r20 16r1C 16r0A 16r1E 16r1C \
  38.         16rA6 16rC1 16r22 16rBE 16r74 16r51 16r22 16r51 16rD4 16rE1 \
  39.         16r06 16r0D 16r26 16r24 16rC2 16r1C 16rA6 16rC0 16r75 16r20 \
  40.         16r25 16r21 16r82 16r02 16rF3 16rB3 16rF2 16r5D 16rF8 16r03 \
  41.         16rF2 16r33 16rA8 16rF2 16rF5] \
  42.     #( #setPen: #drawLine:y1:x2:y2: #drawXTick:y: 'X-Axis outside domain!'  )) >
  43.  
  44. <primitive 112 pTempVar 8  " drawGrid:y:color: " \
  45.   #( #[ 16r20 16r23 16r81 16r00 16rF2 16r1C 16r0A 16r1E 16r1C 16rA6 16rC1 \
  46.         16r21 16rBE 16r74 16r51 16r21 16r51 16rD4 16rE1 16r06 16r12 \
  47.         16r26 16r24 16rC2 16r1C 16rA6 16rC0 16r75 16r20 16r25 16r1D \
  48.         16r0A 16r1E 16r25 16r1D 16rA6 16r84 16r01 16rF3 16rB3 16rF2 \
  49.         16r1D 16r0A 16r1E 16r1D 16rA6 16rC1 16r22 16rBE 16r74 16r51 \
  50.         16r22 16r51 16rD4 16rE1 16r06 16r12 16r26 16r24 16rC2 16r1D \
  51.         16rA6 16rC0 16r75 16r20 16r1C 16rA6 16r25 16r1C 16r0A 16r1E \
  52.         16r25 16r84 16r01 16rF3 16rB3 16rF2 16rF5] \
  53.     #( #setPen: #drawLine:y1:x2:y2:  )) >
  54.  
  55. <primitive 112 pTempVar 9  " drawYTick:y: " \
  56.   #( #[ 16r05 16r35 16rA0 16r73 16r05 16r35 16rA0 16r74 16r23 16r16 16r53 \
  57.         16rC0 16r18 16r21 16r1C 16r0A 16r1E 16rC1 16rC2 16rC0 16r0A \
  58.         16r28 16r0B 16r32 16rF2 16r23 16r17 16r19 16r22 16r1D 16rA6 \
  59.         16rC1 16rC2 16rC0 16r0A 16r28 16r0B 16r33 16rF2 16r24 16r16 \
  60.         16r53 16rC1 16r18 16r21 16r1C 16r0A 16r1E 16rC1 16rC2 16rC0 \
  61.         16r0A 16r28 16r0B 16r32 16rF2 16r24 16r17 16r19 16r22 16r1D \
  62.         16rA6 16rC1 16rC2 16rC0 16r0A 16r28 16r0B 16r33 16rF2 16r20 \
  63.         16r23 16r24 16r92 16r00 16rF2 16rF5] \
  64.     #( #drawLineFrom:to:  )) >
  65.  
  66. <primitive 112 pTempVar 10  " drawXTick:y: " \
  67.   #( #[ 16r05 16r35 16rA0 16r73 16r05 16r35 16rA0 16r74 16r23 16r16 16r18 \
  68.         16r21 16r1C 16r0A 16r1E 16rC1 16rC2 16rC0 16r0A 16r28 16r0B \
  69.         16r32 16rF2 16r23 16r17 16r53 16rC0 16r19 16r22 16r1D 16rA6 \
  70.         16rC1 16rC2 16rC0 16r0A 16r28 16r0B 16r33 16rF2 16r24 16r16 \
  71.         16r18 16r21 16r1C 16r0A 16r1E 16rC1 16rC2 16rC0 16r0A 16r28 \
  72.         16r0B 16r32 16rF2 16r24 16r17 16r53 16rC1 16r19 16r22 16r1D \
  73.         16rA6 16rC1 16rC2 16rC0 16r0A 16r28 16r0B 16r33 16rF2 16r20 \
  74.         16r23 16r24 16r92 16r00 16rF2 16rF5] \
  75.     #( #drawLineFrom:to:  )) >
  76.  
  77. <primitive 112 pTempVar 11  " drawLine:y1:x2:y2: " \
  78.   #( #[ 16r05 16r35 16rA0 16r75 16r05 16r35 16rA0 16r76 16r25 16r16 16r18 \
  79.         16r21 16r1C 16r0A 16r1E 16rC1 16rC2 16rC0 16r0A 16r28 16r0B \
  80.         16r32 16rF2 16r25 16r17 16r19 16r22 16r1D 16rA6 16rC1 16rC2 \
  81.         16rC0 16r0A 16r28 16r0B 16r33 16rF2 16r26 16r16 16r18 16r23 \
  82.         16r1C 16r0A 16r1E 16rC1 16rC2 16rC0 16r0A 16r28 16r0B 16r32 \
  83.         16rF2 16r26 16r17 16r19 16r24 16r1D 16rA6 16rC1 16rC2 16rC0 \
  84.         16r0A 16r28 16r0B 16r33 16rF2 16r20 16r25 16r26 16r92 16r00 \
  85.         16rF2 16rF5] \
  86.     #( #drawLineFrom:to:  )) >
  87.  
  88. <primitive 112 pTempVar 12  " plotPoint:y: " \
  89.   #( #[ 16r05 16r35 16rA0 16r73 16r23 16r16 16r18 16r21 16r1C 16r0A 16r1E \
  90.         16rC1 16rC2 16rC0 16r0A 16r28 16r0B 16r32 16rF2 16r23 16r17 \
  91.         16r19 16r22 16r1D 16rA6 16rC1 16rC2 16rC0 16r0A 16r28 16r0B \
  92.         16r33 16rF2 16r20 16r23 16r91 16r00 16rF2 16rF5] \
  93.     #( #drawPixelAt:  )) >
  94.  
  95. <primitive 112 pTempVar 13  " setYAxisFrom:to:by: " \
  96.   #( #[ 16r1D 16r21 16r22 16r23 16r83 16r00 16rF2 16r23 16r6B 16r17 16r15 \
  97.         16rC1 16r21 16r22 16rC1 16rBE 16r69 16rF5] \
  98.     #( #from:to:by:  )) >
  99.  
  100. <primitive 112 pTempVar 14  " setXAxisFrom:to:by: " \
  101.   #( #[ 16r1C 16r21 16r22 16r23 16r83 16r00 16rF2 16r23 16r6A 16r16 16r14 \
  102.         16rC1 16r22 16r21 16rC1 16rBE 16r68 16rF5] \
  103.     #( #from:to:by:  )) >
  104.  
  105. <primitive 112 pTempVar 15  " setPen: " \
  106.   #( #[ 16r20 16r21 16r91 16r00 16rF2 16rF5] \
  107.     #( #setAPen:  )) >
  108.  
  109. <primitive 112 pTempVar 16  " open:from:to: " \
  110.   #( #[ 16r40 16rA0 16r60 16r41 16rA0 16r61 16r10 16r21 16r81 16r02 16rF2 \
  111.         16r20 16r22 16r23 16r82 16r03 16rF2 16r10 16r54 16r81 16r04 \
  112.         16rF2 16r10 16r80 16r05 16r80 16r06 16r37 16r81 16r08 16rF2 \
  113.         16r11 16r12 16r81 16r09 16rF2 16rF5] \
  114.     #( #Screen #Window #setScreenModeID: #setSizeFrom:to: #setDepth: #open #win 16r11800 #setFlags: #openOnScreen:  )) >
  115.  
  116. <primitive 112 pTempVar 17  " setSizeFrom:to: " \
  117.   #( #[ 16r10 16r21 16r81 16r00 16rF2 16r10 16r22 16r81 16r01 16rF2 16r11 \
  118.         16r21 16r81 16r02 16rF2 16r11 16r22 16r81 16r03 16rF2 16r21 \
  119.         16r0A 16r30 16r64 16r21 16r0A 16r31 16r65 16r22 16r0A 16r30 \
  120.         16r66 16r22 16r0A 16r31 16r67 16rF5] \
  121.     #( #setOrigin: #setScreenSize: #setWindowOrigin: #setWindowSize:  )) >
  122.  
  123. <primitive 112 pTempVar 18  " initialize:winTitle: " \
  124.   #( #[ 16r21 16r62 16r22 16r63 16r20 16r13 16r91 16r00 16rF2 16r05 16r2E \
  125.         16rA0 16r6C 16r05 16r2E 16rA0 16r6D 16r31 16r6A 16r32 16r6B \
  126.         16r33 16r68 16r34 16r69 16rF5] \
  127.     #( #new: 0.0 0.0 1.0 1.0  )) >
  128.  
  129. <primitive 98 #Graph \
  130.   <primitive 97 #Graph #Painter #Graph.st \
  131.    #(  #scr #win #ts #tw #x #y #w #h #xscale #yscale #xinc #yinc #range #domain ) \
  132.    #( #close #tellDomain #tellRange #tellScales #drawLabel:at:  \
  133.        #drawYAxis:numTicks:color: #drawXAxis:numTicks:color: #drawGrid:y:color: #drawYTick:y: #drawXTick:y:  \
  134.        #drawLine:y1:x2:y2: #plotPoint:y: #setYAxisFrom:to:by: #setXAxisFrom:to:by: #setPen:  \
  135.        #open:from:to: #setSizeFrom:to: #initialize:winTitle:  ) \
  136.   pTempVar 7 10 >>
  137.  
  138.